﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%
dim myid
myid=qingtian.nid
pp=request("pp")
if pp="" then pp="1"

Server.ScriptTimeout=999
%>
<card title="聊天开关" ontimer="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">
<timer value="2"/>
<p>
<%if pp=1 then%>
<%
sql="update sx set lt=1 where ids="&myid
  liao.Execute(sql)
%>
成功关闭聊天频道！<br/>
<%elseif pp=0 then%>
<%
sql="update sx set lt=0 where ids="&myid
  liao.Execute(sql)
%>
成功开启聊天频道！
<br/>
<%end if%>
*********<br/>
正在返回。。。。
<br/>*********
<br/>
<a href='index.asp?cc=<%=cc%>&amp;ve=<%=ve%>'>江湖首页</a><br/>
<%qingtian.shuchu%>